home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / multi-4a / misc.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-27  |  2.4 KB  |  115 lines
  1. Attribute VB_Name = "misc"
  2. Function get_socket(clientid As Integer) As Integer
  3. 'returns the socket which the specified clientid is using
  4.  
  5. get_socket = client(clientid).socket
  6.  
  7. End Function
  8.  
  9. Function get_clientid(socket As Integer) As Integer
  10. 'returns the clientid of the client using the specified socket
  11.  
  12. get_clientid = main.sock(socket).Tag
  13.  
  14. End Function
  15.  
  16. Function f_time() As String
  17. 'returns time in a nice format
  18.  
  19. f_time = Format(Time, "hh:mm:ss")
  20.  
  21. End Function
  22.  
  23.  
  24. Sub update_info()
  25.  
  26. 'updates the information on the main form
  27. main.sockets_loaded_info.Caption = count_sockets
  28. main.live_connections_info.Caption = live_connections
  29.  
  30. End Sub
  31.  
  32.  
  33. Sub close_all_sockets()
  34. 'close down every socket
  35. '(not designed for restart, deseigned for when sombody closes the program)
  36.  
  37. Dim i As Integer
  38. For i = 0 To (count_sockets - 1)
  39. main.sock(i).Close
  40. Next i
  41.  
  42. 'show its been shutdown.
  43. update_status "*** Server ShutDown ***"
  44.  
  45.  
  46.  
  47. End Sub
  48.  
  49. Sub reset_server()
  50. 'this totally resets the server.
  51.  
  52. 'show its reset in status
  53. update_status "*** Server Reset ***"
  54.  
  55. 'turn off the main connection socket
  56. main.sock(0).Close
  57.  
  58. 'disconnect all the users
  59. For i = 1 To max_clients
  60. If client(i).socket <> 0 Then logout_client client(i).socket, "Server Reset"
  61. Next i
  62.  
  63. 'start up the main socket again
  64. main.sock(0).Listen
  65.  
  66. End Sub
  67.  
  68. Sub start_server()
  69. On Error GoTo ec
  70. 'this just starts the main connection socket up to listen
  71.  
  72. 'load settings
  73. set_up_settings
  74.  
  75. main.sock(0).LocalPort = server_port
  76. main.sock(0).Listen
  77.  
  78. 'show its started in the status
  79. update_status "*** Server Started *** (" & main.sock(0).LocalIP & ":" & server_port & ")"
  80.  
  81. Exit Sub
  82. ec:
  83. MsgBox "Unable To Start Server - Port In Use", vbExclamation + vbOKOnly, "Error Starting Server"
  84.  
  85. End Sub
  86.  
  87. Sub set_up_settings()
  88. 'this simply sets up all the settings
  89.  
  90. 'set the maxmimum number of clients
  91. max_clients = default_max_clients
  92. server_port = default_server_port
  93.  
  94. End Sub
  95. Sub change_server_port(port As Long)
  96. On Error GoTo ec
  97.  
  98.  
  99. main.sock(0).Close
  100. main.sock(0).LocalPort = port
  101. main.sock(0).Listen
  102. server_port = info_port
  103. update_status "*** Server Port Changed To - " & server_port
  104.  
  105. 'error controll
  106. Exit Sub
  107. ec:
  108. MsgBox "Error Changing Server Port."
  109. update_status "*** Error Forced Server Port To Remain At - " & server_port
  110. main.sock(0).Close
  111. main.sock(0).LocalPort = server_port
  112. main.sock(0).Listen
  113.  
  114. End Sub
  115.